home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / PInterface Translator / PInterfaces / Signal.p < prev    next >
Encoding:
Text File  |  1993-09-16  |  1022 b   |  47 lines  |  [TEXT/MPS ]
  1. {*-------------------------------------------------------------------------------*
  2.  |                                                                                 |
  3.  |                              <<< Signal Manager >>>                             |
  4.  |                                                                                 |
  5.  |                       Copyright Apple Computer, Inc. 1986, 1987, 1988             |
  6.  |                               All rights reserved.                              |
  7.  |                                                                                 |
  8.  *-------------------------------------------------------------------------------*}
  9. {
  10.     Signal Handling interface.
  11.     This must be compatible with C's <signal.h>
  12. }
  13.  
  14. UNIT Signal;
  15.  
  16. INTERFACE
  17.  
  18. TYPE
  19.     SignalMap =     INTEGER;
  20.     SignalHandler = ^LONGINT;    { Pointer to function }
  21.  
  22. CONST
  23.     SIG_ERR =       -1;            { Returned by IEsignal on error }
  24.     SIG_IGN =        0;
  25.     SIG_DFL =        1;
  26.     SIG_HOLD =        3;
  27.     SIG_RELEASE =    5;
  28.  
  29.     SIGABRT =        $0001;
  30.     SIGINT =        $0002;        { Currently only SIGINT implemented }
  31.     SIGFPE =        $0004;
  32.     SIGILL =        $0008;
  33.     SIGSEGV =        $0010;
  34.     SIGTERM =        $0020;
  35.  
  36. { Signal Handling Functions }
  37.  
  38. FUNCTION
  39.     IEsignal(sigNum: LONGINT; sigHdlr: UNIV SignalHandler):
  40.     SignalHandler; C;
  41.  
  42. FUNCTION
  43.     IEraise(sigNum: LONGINT):
  44.     LONGINT; C;
  45.  
  46. END.
  47.